home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / floorm.act < prev    next >
Text File  |  1995-04-22  |  575b  |  45 lines
  1.  
  2. bytE DCOMMD=770,DNUM=769 
  3.  
  4. card SIO=$E453,DBUFF=772,DSECNO=778 
  5.  
  6. ;********************************** 
  7.  
  8. PROC JREAD(CARD SECNUM) 
  9.  
  10.   DNUM  =1 
  11.   DCOMMD='R 
  12.   DBUFF =$600 
  13.   DSECNO=SECNUM 
  14.   [32 SIO] 
  15.  
  16. RETURN 
  17.  
  18. PROC MAIN() 
  19.  
  20. BYTE NOISY=65,A1 
  21.  
  22. CARD A 
  23.  
  24.     A1=NOISY 
  25.     NOISY=0 
  26.     FOR A=1 TO 702 STEP 18 DO 
  27.       JREAD(A) 
  28.     OD 
  29.     FOR A=1 TO 702 STEP 18 DO 
  30.       JREAD(703-A) 
  31.       JREAD(703-A) 
  32.     OD 
  33.     NOISY=A1 JREAD(1) NOISY=0 
  34.     FOR A=360 TO 368 DO 
  35.       JREAD(A) 
  36.     OD 
  37.     FOR A=1 TO 3 DO 
  38.       JREAD(A) 
  39.     OD 
  40.     NOISY=A1 
  41.  
  42. RETURN 
  43.  
  44.  
  45.